package again
authorClaus Gittinger <cg@exept.de>
Thu, 20 Jul 2000 16:06:18 +0200
changeset 5475 7e9406202957
parent 5474 c7c69123fd48
child 5476 d76d23964321
package again
Autoload.st
--- a/Autoload.st	Thu Jul 20 16:02:47 2000 +0200
+++ b/Autoload.st	Thu Jul 20 16:06:18 2000 +0200
@@ -317,24 +317,28 @@
         package := self package.
         Class nameSpaceQuerySignal answer:myNameSpace "Smalltalk" 
         do:[
-            (Smalltalk 
-                fileInClass:myName
-                package:package
-                initialize:false 
-                lazy:LazyLoading
-                silent:nil) isNil ifTrue:[
-                "/ temporary: try without stx/package prefix
-                "/ this will vanish as soon as source-directory
-                "/ is always guaranteed to contain an stx-subtree
-                ((package startsWith:'stx/') 
-                or:[package startsWith:'stx:']) ifTrue:[
-                    package := package copyFrom:5.
-                    Smalltalk 
-                        fileInClass:myName
-                        package:package
-                        initialize:false 
-                        lazy:LazyLoading
-                        silent:nil.
+            Class packageQuerySignal answer:package 
+            do:[
+                (Smalltalk 
+                    fileInClass:myName
+                    package:package
+                    initialize:false 
+                    lazy:LazyLoading
+                    silent:nil) isNil 
+                ifTrue:[
+                    "/ temporary: try without stx/package prefix
+                    "/ this will vanish as soon as source-directory
+                    "/ is always guaranteed to contain an stx-subtree
+                    ((package startsWith:'stx/') 
+                    or:[package startsWith:'stx:']) ifTrue:[
+                        package := package copyFrom:5.
+                        Smalltalk 
+                            fileInClass:myName
+                            package:package
+                            initialize:false 
+                            lazy:LazyLoading
+                            silent:nil.
+                    ]
                 ]
             ]
         ].
@@ -593,6 +597,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.103 2000-07-14 09:27:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.104 2000-07-20 14:06:18 cg Exp $'
 ! !
 Autoload initialize!