diff -c utils.tcl.orig utils.tcl
*** utils.tcl.orig      Mon Apr 17 12:19:03 2006
--- utils.tcl   Fri Jul  7 11:01:20 2006
***************
*** 567,573 ****
      set classes [list $class]
      if {![info exists use($class)]} { return }
      foreach class $use($class) {
!       eval lappend classes [classes $class]
      }
      return [lsort -unique $classes]
  }
--- 567,575 ----
      set classes [list $class]
      if {![info exists use($class)]} { return }
      foreach class $use($class) {
!         if {![string equal $class "-classonly"]} {
!             eval lappend classes [classes $class]
!         }
      }
      return [lsort -unique $classes]
  }