--- a/Color.st	Thu Aug 31 12:04:04 2000 +0200
+++ b/Color.st	Thu Aug 31 12:05:27 2000 +0200
@@ -1227,7 +1227,7 @@
             depth == 1 ifTrue:[
                 ^ Form mediumGreyFormOn:Screen current
             ].
-            self halt.
+            self halt:'not yet implemented'.
         ].
         mask _ (1 bitShift: depth) - 1.
         bits _ 2 * depth.
@@ -5113,6 +5113,6 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.158 2000-08-22 10:11:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.159 2000-08-31 10:05:27 cg Exp $'
 ! !
 Color initialize!