--- a/Autoload.st	Thu Dec 02 01:18:40 1999 +0100
+++ b/Autoload.st	Thu Dec 02 01:19:08 1999 +0100
@@ -309,14 +309,6 @@
         Class nameSpaceQuerySignal answer:myNameSpace "Smalltalk" 
         do:[
             package := self package.
-"/            package notNil ifTrue:[
-"/                (package includes:$:) ifTrue:[
-"/                    package := package asString copyReplaceAll:$: with:$/
-"/                ] ifFalse:[
-"/                    package := 'stx/' , package
-"/                ]
-"/            ].
-
             (Smalltalk 
                 fileInClass:myName
                 package:package
@@ -324,9 +316,10 @@
                 lazy:LazyLoading
                 silent:nil) isNil ifTrue:[
                 "/ temporary: try without stx/package prefix
-                "/ this will vanishas soon as source-directory
+                "/ this will vanish as soon as source-directory
                 "/ is always guaranteed to contain an stx-subtree
-                (package startsWith:'stx/') ifTrue:[
+                ((package startsWith:'stx/') 
+                or:[package startsWith:'stx:']) ifTrue:[
                     package := package copyFrom:5.
                     Smalltalk 
                         fileInClass:myName
@@ -591,6 +584,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.99 1999-11-18 20:11:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.100 1999-12-02 00:19:08 cg Exp $'
 ! !
 Autoload initialize!