--- a/Tools__CodeView2.st	Sat Oct 08 14:52:41 2011 +0200
+++ b/Tools__CodeView2.st	Sat Oct 08 19:49:54 2011 +0200
@@ -2886,7 +2886,7 @@
 
         originalSource := listOriginal "self model value ? ''".
 
-        originalSource := originalSource asStringCollection.
+        originalSource := (originalSource ? '') asStringCollection.
         originalSource := originalSource 
                 collect:[:lineOrNil |
                     |newLine|
@@ -2909,7 +2909,7 @@
 
     "Created: / 07-10-2011 / 19:16:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 08-10-2011 / 11:10:01 / cg"
-    "Modified: / 08-10-2011 / 12:15:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-10-2011 / 18:48:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CodeView2::TextView methodsFor:'scrolling'!
@@ -3061,11 +3061,11 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.33 2011-10-08 11:53:45 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.34 2011-10-08 17:49:54 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.33 2011-10-08 11:53:45 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.34 2011-10-08 17:49:54 vrany Exp $'
 !
 
 version_SVN