--- a/Class.st	Mon Jan 16 21:33:40 2006 +0100
+++ b/Class.st	Tue Jan 17 13:18:40 2006 +0100
@@ -1592,14 +1592,14 @@
 
     name storeBinaryOn:stream manager:manager.
     flags storeBinaryOn:stream manager:manager.
-    (instvars isNil or:[instvars isEmpty]) ifTrue:[
+    (instvars isEmptyOrNil) ifTrue:[
         s := nil
     ] ifFalse:[
         s := self instanceVariableString
     ].
     s storeBinaryOn:stream manager:manager.
 
-    (classvars isNil or:[classvars isEmpty]) ifTrue:[
+    (classvars isEmptyOrNil) ifTrue:[
         s := nil
     ] ifFalse:[
         s := self classVariableString
@@ -4721,7 +4721,7 @@
     src := aStream nextChunk.
     aStream position:oldPos.
 
-    (src isNil or:[src isEmpty]) ifTrue:[
+    (src isEmptyOrNil) ifTrue:[
         'Class [info]: empty source for version-method' infoPrintCR.
         ^ false
     ].
@@ -4920,5 +4920,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.488 2005-09-30 18:52:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.489 2006-01-17 12:18:40 cg Exp $'
 ! !