--- a/Smalltalk.st	Sat Aug 20 16:36:35 2011 +0200
+++ b/Smalltalk.st	Sat Aug 20 16:42:04 2011 +0200
@@ -649,6 +649,18 @@
     Stdout reOpen. Stderr reOpen. Stdin reOpen.
 ! !
 
+!Smalltalk class methodsFor:'*monticello-squeakCompatibility'!
+
+hasClassNamed:aString 
+    Symbol 
+        hasInterned:aString
+        ifTrue:[:aSymbol | ^ (self at:aSymbol ifAbsent:[ nil ]) isClass ].
+    ^ false
+
+    "Created: / 26-08-2009 / 11:43:03 / Jaroslav Havlin <havlij6@fel.cvut.cz>"
+    "Modified: / 20-08-2011 / 16:41:31 / cg"
+! !
+
 !Smalltalk class methodsFor:'Compatibility-Squeak'!
 
 at:aKey ifAbsentPut:aBlock
@@ -7642,11 +7654,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.972 2011-08-18 07:19:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.973 2011-08-20 14:42:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.972 2011-08-18 07:19:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.973 2011-08-20 14:42:04 cg Exp $'
 !
 
 version_SVN