Index: library/tcl-cool/tcl-cool.tcl
===================================================================
diff -u -ra5e11e1cf74cc5432824aaaf3c45cd436a6e072c -r8ee718fe7e27c3df71bc659f3261710a4aaf5805
--- library/tcl-cool/tcl-cool.tcl	(.../tcl-cool.tcl)	(revision a5e11e1cf74cc5432824aaaf3c45cd436a6e072c)
+++ library/tcl-cool/tcl-cool.tcl	(.../tcl-cool.tcl)	(revision 8ee718fe7e27c3df71bc659f3261710a4aaf5805)
@@ -318,7 +318,8 @@
 # >Yippy, I'll get that wicked tweedy!!
 
 
-puts "\nApplication specific methods of fido: [fido methods -application]"
+puts "\nApplication specific methods of fido: [fido methods -source application]"
+puts "System specific methods of fido: [fido methods -source baseclasses]"
 puts "All methods of fido: [fido methods]\n"
 foreach cmd {{fido wag} {fido rise}} {  puts "$cmd [time {eval $cmd} 10000]" }