--- a/DObject.st	Fri Jul 16 11:42:12 1993 +0200
+++ b/DObject.st	Wed Oct 13 01:30:58 1993 +0100
@@ -207,14 +207,24 @@
 !DisplayObject methodsFor:'ST-80 drawing'!
 
 displayOn: aDisplayMedium
+"
     self drawIn:aDisplayMedium offset:0@0
 "
+" "
     self displayOn:aDisplayMedium 
                 at:0@0 
        clippingBox:nil 
               rule:#copy
               mask:nil
-"
+" "
+!
+
+displayOn:aDisplayMedium at:aPoint 
+    self displayOn:aDisplayMedium 
+                at:aPoint 
+       clippingBox:nil 
+              rule:#copy
+              mask:nil
 !
 
 displayOn:aDisplayMedium at:aPoint clippingBox:clipRectangle
@@ -226,14 +236,11 @@
 !
 
 displayOn:aDisplayMedium at:aPoint clippingBox:clip rule:rule mask: aForm
+    "in ST-80 programs, this is redefined"
+
     aDisplayMedium function:rule.
     ^ self drawIn:aDisplayMedium 
                at:(aPoint + self origin)
-!
-
-displayOn:aDisplayMedium at:aPoint 
-    ^ self drawIn:aDisplayMedium 
-               at:(aPoint + self origin)
 ! !
 
 !DisplayObject methodsFor:'drawing'!
@@ -241,7 +248,7 @@
 drawIn:aView offset:anOffset
     "draw the receiver at its origin offset by anOffset, aPoint"
 
-    ^ self subclassResponsiblitity
+    ^ self subclassResponsibility
 !
 
 drawIn:aView