--- a/Behavior.st	Mon Oct 26 17:23:54 2009 +0100
+++ b/Behavior.st	Mon Oct 26 17:24:22 2009 +0100
@@ -1035,6 +1035,10 @@
 
 !Behavior methodsFor:'Compatibility-Squeak'!
 
+classComment:comment stamp:commentStamp
+    self comment:comment
+!
+
 defaultNameStemForInstances
     "Answer a basis for names of default instances of the receiver"
 
@@ -1047,6 +1051,9 @@
     of subclass, either a regular subclass, a variableSubclass, a  
     variableByteSubclass, a variableWordSubclass, or a weakSubclass."
 
+    self isWeakPointers ifTrue:[
+        ^ ' weakSubclass: '
+    ].
     ^ ' ',self firstDefinitionSelectorPart,' '
 
     "
@@ -4544,9 +4551,9 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.297 2009-10-26 15:59:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.298 2009-10-26 16:24:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.297 2009-10-26 15:59:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.298 2009-10-26 16:24:22 cg Exp $'
 ! !