--- a/SourceCodeManagerUtilities.st	Thu Nov 29 11:21:15 2007 +0100
+++ b/SourceCodeManagerUtilities.st	Wed Dec 05 17:21:09 2007 +0100
@@ -830,6 +830,15 @@
     "/ class in repository - ask for revision
     "/
 "/    newestRev := mgr newestRevisionOf:currentClass.
+    containerModule isNil ifTrue:[
+        containerModule := Dialog request:'Module:'.
+        containerModule isEmptyOrNil ifTrue:[^ self].
+    ].
+    containerPackage isNil ifTrue:[
+        containerPackage := Dialog request:'Package:'.
+        containerPackage isEmptyOrNil ifTrue:[^ self].
+    ].
+
     newestRev := mgr newestRevisionInFile:containerFile directory:containerPackage module:containerModule.
     askForRevision ifFalse:[
         rev := newestRev ? ''
@@ -2880,5 +2889,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.161 2007-10-15 14:27:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.162 2007-12-05 16:21:09 mb Exp $'
 ! !