--- a/InspectorView.st	Tue Feb 06 11:36:48 2007 +0100
+++ b/InspectorView.st	Tue Feb 06 14:27:29 2007 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 SimpleView subclass:#InspectorView
@@ -1480,8 +1479,12 @@
 
     self topView withWaitCursorDo:[
         s := self displayStringForValue:someValue.
-        workspace replace:s.
+        s = workspace selectionAsString ifFalse:[
+            workspace replace:s.
+        ].
     ].
+
+    "Modified: / 06-02-2007 / 14:26:47 / cg"
 !
 
 stringWithAllIndexedVarValues
@@ -1918,5 +1921,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.167 2006-09-18 19:50:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.168 2007-02-06 13:27:29 cg Exp $'
 ! !