--- a/Workspace.st	Tue Sep 27 14:49:26 2005 +0200
+++ b/Workspace.st	Wed Oct 05 11:53:57 2005 +0200
@@ -686,7 +686,13 @@
     |e commentPair opening closing|
 
     (self checkModificationsAllowed) ifFalse:[ ^ self].
-    selectionStartLine isNil ifTrue:[ ^ self].
+    selectionStartLine isNil ifTrue:[ 
+        self 
+            undoableDo:[
+                self commentFrom:cursorLine to:cursorLine
+            ].
+        ^ self
+    ].
 
     self 
         undoableDo:
@@ -765,7 +771,13 @@
     |e commentPair opening closing sz1 sz2|
 
     (self checkModificationsAllowed) ifFalse:[ ^ self].
-    selectionStartLine isNil ifTrue:[ ^ self].
+    selectionStartLine isNil ifTrue:[ 
+        self 
+            undoableDo:[
+                self uncommentFrom:cursorLine to:cursorLine
+            ].
+        ^ self
+    ].
 
     self 
         undoableDo:
@@ -1256,5 +1268,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.150 2005-04-20 09:59:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.151 2005-10-05 09:53:57 cg Exp $'
 ! !