--- a/Workspace.st	Wed Jun 26 10:10:03 2013 +0200
+++ b/Workspace.st	Wed Jun 26 10:16:45 2013 +0200
@@ -12,16 +12,16 @@
 "{ Package: 'stx:libwidg' }"
 
 TextCollector subclass:#Workspace
-        instanceVariableNames:'doItAction codeStartPosition errorFgColor errorBgColor
-                commentStrings autoDefineWorkspaceVariables simulatedSelf
-                autoDefineVariables compilerClass allowValueDrop
-                poolsConsideredInDoIts namespaceForDoits editedMethodOrClass'
-        classVariableNames:'DefaultViewBackground DefaultErrorForegroundColor
-                DefaultErrorBackgroundColor DefaultWarningBackgroundColor
-                DefaultWarningForegroundColor WorkspaceVariables DoItHistory
-                Sniplets'
-        poolDictionaries:''
-        category:'Interface-Smalltalk'
+	instanceVariableNames:'doItAction codeStartPosition errorFgColor errorBgColor
+		commentStrings autoDefineWorkspaceVariables simulatedSelf
+		autoDefineVariables compilerClass allowValueDrop
+		poolsConsideredInDoIts namespaceForDoits editedMethodOrClass'
+	classVariableNames:'DefaultViewBackground DefaultErrorForegroundColor
+		DefaultErrorBackgroundColor DefaultWarningBackgroundColor
+		DefaultWarningForegroundColor WorkspaceVariables DoItHistory
+		Sniplets'
+	poolDictionaries:''
+	category:'Interface-Smalltalk'
 !
 
 Workspace comment:'declared from: ..\..\..\stx\libwidg\abbrev.stc'
@@ -407,8 +407,6 @@
     DoItHistory size > self doItHistorySize ifTrue:[
         DoItHistory removeLast
     ].
-
-    Scanner
 ! !
 
 !Workspace class methodsFor:'queries'!
@@ -1037,9 +1035,8 @@
 !
 
 doDrop:aDropContext
-    |v|
-
-    self halt:'should no longer be reached'.
+    <resource: #obsolete>
+    self obsoleteMethodWarning:'should no longer be reached'.
     self drop:aDropContext
 
     "Modified: / 28-11-2006 / 16:14:51 / cg"
@@ -2034,7 +2031,7 @@
 
     maxKeyLen := maxKeyLen min:stringBeforeCursor size.
 
-    (maxKeyLen to:minKeyLen by:-1) do:[:l |
+    maxKeyLen to:minKeyLen by:-1 do:[:l |
         |lCharactersBeforeCursor expandedString|
 
         lCharactersBeforeCursor := stringBeforeCursor last:l.
@@ -2076,10 +2073,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.267 2013-06-25 16:58:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.268 2013-06-26 08:16:45 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.267 2013-06-25 16:58:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.268 2013-06-26 08:16:45 stefan Exp $'
 ! !