--- a/ObjectView.st	Wed Feb 17 17:34:06 1999 +0100
+++ b/ObjectView.st	Wed Feb 17 21:07:23 1999 +0100
@@ -2385,7 +2385,7 @@
                 newObject := Object readBinaryFrom:aStream
             ] ifFalse:[
                 chunk := aStream nextChunk.
-                (chunk notNil and:[chunk isEmpty not]) ifTrue:[
+                (chunk size > 0) ifTrue:[
                     newObject := Compiler evaluate:chunk compile:false.
                 ] ifFalse:[
                     newObject := nil
@@ -2955,5 +2955,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.62 1999-02-16 15:25:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.63 1999-02-17 20:07:23 cg Exp $'
 ! !