--- a/SourceCodeManagerUtilities.st	Fri Oct 24 14:46:56 2003 +0200
+++ b/SourceCodeManagerUtilities.st	Sun Oct 26 16:26:20 2003 +0100
@@ -1502,11 +1502,7 @@
     ].
 
     fileName isNil ifTrue:[
-        aClass nameSpace ~~ Smalltalk ifTrue:[
-             fileName := aClass nameWithoutPrefix , '.st'.
-        ] ifFalse:[
-             fileName := (Smalltalk fileNameForClass:aClass) , '.st'.
-        ]
+        fileName := (Smalltalk fileNameForClass:aClass) , '.st'.
     ].
 
     OperatingSystem isMSDOSlike ifTrue:[
@@ -2112,5 +2108,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.92 2003-08-31 12:42:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.93 2003-10-26 15:26:20 cg Exp $'
 ! !