--- a/Tools__VariableList.st	Thu Jun 21 11:04:30 2012 +0200
+++ b/Tools__VariableList.st	Fri Jun 22 15:44:41 2012 +0200
@@ -470,7 +470,7 @@
      with an <xml>-icon."
 
     (Expecco::ExpeccoXMLDecoder notNil 
-    and:[aClass canUnderstand: #xmlSpecFor:]) ifTrue:[
+    and:[aClass canUnderstand: #xmlSpecForObject:]) ifTrue:[
         Error handle:[:ex |
         ] do:[
             (Expecco::ExpeccoXMLDecoder xmlSpecForObject:aClass basicNew)
@@ -484,6 +484,7 @@
 
     "Created: / 12-04-2011 / 19:58:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 15-07-2011 / 18:32:47 / cg"
+    "Modified: / 22-06-2012 / 13:17:28 / sr"
 !
 
 listEntryForClass: cls name:name
@@ -821,5 +822,5 @@
 !VariableList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.17 2012-03-23 14:56:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.18 2012-06-22 13:44:41 sr Exp $'
 ! !