--- a/Form.st	Tue Mar 28 19:40:25 2000 +0200
+++ b/Form.st	Thu Mar 30 17:24:57 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview' }"
+
 GraphicsMedium subclass:#Form
 	instanceVariableNames:'depth localColorMap offset data fileName'
 	classVariableNames:'VeryLightGreyForm LightGreyForm GreyForm DarkGreyForm
@@ -892,7 +894,7 @@
             width:aRectangle width height:aRectangle height.
         ^ self
     ].
-    self halt.
+    self halt:'unsupported copyRule (please add)'.
 
 !
 
@@ -2047,6 +2049,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.110 2000-02-12 15:30:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.111 2000-03-30 15:24:57 cg Exp $'
 ! !
 Form initialize!