--- a/Form.st	Fri Aug 22 18:58:00 1997 +0200
+++ b/Form.st	Tue Aug 26 17:44:24 1997 +0200
@@ -1136,11 +1136,12 @@
      Added for protocol compatibility with Image."
 
     aDevice == device ifTrue:[
-	^ self
+        ^ self
     ].
-    ^ self on:aDevice
+    ^ self onDevice:aDevice
 
     "Modified: 23.4.1996 / 10:17:26 / cg"
+    "Modified: 26.8.1997 / 10:29:14 / stefan"
 !
 
 asMonochromeFormOn:aDevice
@@ -1801,6 +1802,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.84 1997-06-11 11:19:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.85 1997-08-26 15:44:24 stefan Exp $'
 ! !
 Form initialize!