Smalltalk.st
changeset 14892 77c2f020de5d
parent 14890 37618c9121f2
child 14898 5afe1d1f7ffe
--- a/Smalltalk.st	Mon Mar 18 15:06:53 2013 +0100
+++ b/Smalltalk.st	Mon Mar 18 19:31:19 2013 +0100
@@ -2256,7 +2256,7 @@
     packageString := packageId string.
 
     "if I am here, so must my package"
-    packageString = 'stx:libbasic' ifTrue:[^ true].
+    packageString = self package ifTrue:[^ true].
 
     "/ if there is a projectDefinition, let it load itself...
     def := packageId projectDefinitionClass.
@@ -7876,11 +7876,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1011 2013-03-18 13:39:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1012 2013-03-18 18:31:19 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1011 2013-03-18 13:39:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1012 2013-03-18 18:31:19 stefan Exp $'
 !
 
 version_SVN