--- a/XWorkstation.st	Wed Apr 02 00:25:41 1997 +0200
+++ b/XWorkstation.st	Wed Apr 02 12:58:04 1997 +0200
@@ -2611,11 +2611,16 @@
      && __isExternalAddress(aDrawableId)
      && __bothSmallInteger(x0, y0)
      && __bothSmallInteger(x1, y1)) {
-	gc = _GCVal(aGCId);
-	win = _WindowVal(aDrawableId);
-	XDrawLine(myDpy, win, gc, __intVal(x0), __intVal(y0),
-				  __intVal(x1), __intVal(y1));
-	RETURN ( self );
+        gc = _GCVal(aGCId);
+        win = _WindowVal(aDrawableId);
+
+        if ((x0 == x1) && (y0 == y1)) {
+            XDrawPoint(myDpy, win, gc, __intVal(x0), __intVal(y0));
+        } else {
+            XDrawLine(myDpy, win, gc, __intVal(x0), __intVal(y0),
+                                      __intVal(x1), __intVal(y1));
+        }
+        RETURN ( self );
     }
 %}.
     "badGC, badDrawable or coordinates not integer"
@@ -8601,6 +8606,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.219 1997-03-27 14:52:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.220 1997-04-02 10:58:04 cg Exp $'
 ! !
 XWorkstation initialize!