--- a/Tools__ClassList.st	Thu Apr 05 18:53:51 2012 +0100
+++ b/Tools__ClassList.st	Fri Apr 06 16:56:16 2012 +0100
@@ -787,23 +787,32 @@
     |selected master|
 
     selected := self getSelectedClassesFromIndices.
-    (selected = lastSelectedClasses and:[selected size == 1])
-    ifTrue:[
-	"/ thats a kludge - we want to turn off the protocol selection,
-	"/ when a class is reselected.
 
-	masterApplication notNil ifTrue:[
-	    master := masterApplication.
-	    masterApplication masterApplication notNil ifTrue:[
-		master := masterApplication masterApplication.
-	    ].
-	    (master respondsTo:#classReselected) ifTrue:[
-		master classReselected.
-	    ].
-	] 
-    ] ifFalse:[
-	lastSelectedClasses := selected copy.
+    "/JV@2012-04-06: Change to also update navigation history"
+    selected size == 1 ifTrue:[
+        masterApplication notNil ifTrue:[
+            master := masterApplication.
+            masterApplication masterApplication notNil ifTrue:[
+                master := masterApplication masterApplication.
+            ].
+        ].
+        (selected = lastSelectedClasses) ifTrue:[
+            "/ thats a kludge - we want to turn off the protocol selection,
+            "/ when a class is reselected.
+            master notNil ifTrue:[
+                (master respondsTo:#classReselected) ifTrue:[
+                    master classReselected.
+                ].
+            ] 
+        ] ifFalse:[
+            lastSelectedClasses := selected copy.
+        ].
+        (master notNil and:[master respondsTo:#addToHistory:]) ifTrue:[
+            master addToHistory: selected anElement.
+        ]
     ]
+
+    "Modified: / 06-04-2012 / 10:57:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 update:something with:aParameter from:changedObject
@@ -2033,5 +2042,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ClassList.st 7961 2012-03-31 00:16:30Z vranyj1 $'
+    ^ '$Id: Tools__ClassList.st 7973 2012-04-06 15:56:16Z vranyj1 $'
 ! !