--- a/Class.st	Wed Apr 22 21:39:12 1998 +0200
+++ b/Class.st	Thu Apr 23 14:11:12 1998 +0200
@@ -3747,7 +3747,11 @@
 
     (aStream notNil and:[validated not]) ifTrue:[
         (self validateSourceStream:aStream) ifFalse:[
-            ('Class [warning]: source for ''' , self name , ''' is invalid or stripped. Take care.') errorPrintCR
+            (Smalltalk releaseIdentification = 'ST/X_free_demo_vsn') ifTrue:[
+                ('Class [warning]: source for ''' , self name , ''' is not available in the demo version.') infoPrintCR
+            ] ifFalse:[
+                ('Class [warning]: source for ''' , self name , ''' is invalid or stripped. Take care.') errorPrintCR
+            ]
         ].
     ].
     ^ aStream
@@ -3759,8 +3763,8 @@
     "
 
     "Created: / 10.11.1995 / 21:05:13 / cg"
-    "Modified: / 10.1.1997 / 15:36:26 / cg"
     "Modified: / 22.4.1998 / 19:20:50 / ca"
+    "Modified: / 23.4.1998 / 14:10:32 / cg"
 !
 
 updateVersionMethodFor:newRevisionString
@@ -3916,5 +3920,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.308 1998-04-22 17:21:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.309 1998-04-23 12:11:12 cg Exp $'
 ! !