Index: tolbase/lib/toltk/tolpkg.tcl
===================================================================
--- tolbase/lib/toltk/tolpkg.tcl	(revision 9042aace984adab4116524c1d35f3d7a2c72c0f3)
+++ tolbase/lib/toltk/tolpkg.tcl	(revision b582cf134fd97291635f49a4b81904390d328129)
@@ -149,5 +149,8 @@
   set pkgsInfo {}
   foreach d $dirs {
-    lappend pkgsInfo [ list $d [ GetLocalPackageInfo $d ] ]
+    set pkgInfo [ GetLocalPackageInfo $d ]
+    if { [llength $pkgInfo] > 0 } {
+      lappend pkgsInfo [ list $d $pkgInfo ]
+    }
   }
   return $pkgsInfo
@@ -156,5 +159,5 @@
 proc ::TolPkg::GetLocalPackageInfo { p } {
   set tolScript [ string map [ list %p $p ] {
-    Set TolPackage::Client::GetPackageInfo( "%p" );
+    Set TolPackage::Client::GetPackageInfo_Compatible( "%p" );
   } ]
   return [ lindex [ toltcl::eval $tolScript -named 1 ] 1 ]