diff --git a/basctl/source/basicide/basides1.cxx b/basctl/source/basicide/basides1.cxx
index 63cc273de0cb..8ca700ba37bb 100644
--- a/basctl/source/basicide/basides1.cxx
+++ b/basctl/source/basicide/basides1.cxx
@@ -432,7 +432,10 @@ void BasicIDEShell::ExecuteGlobal( SfxRequest& rReq )
         break;
         case SID_BASICIDE_OBJCAT:
         {
-            ShowObjectDialog( sal_True, sal_True );
+            if ( pObjectCatalog )
+                ShowObjectDialog( sal_False, sal_True );
+            else
+                ShowObjectDialog( sal_True, sal_True );
         }
         break;
         case SID_BASICIDE_NAMECHANGEDONTAB: