Index: src/registry2.0/portuninstall.tcl
===================================================================
--- src/registry2.0/portuninstall.tcl	(revision 132471)
+++ src/registry2.0/portuninstall.tcl	(working copy)
@@ -321,6 +321,7 @@
                         foreach depdt $dependents {
                             if {[lsearch -exact $uports $depdt] == -1} {
                                 set all_dependents_uninstalling 0
+                                ui_msg "not adding $dep to uninstall list, $depdt depends on it"
                                 break
                             }
                         }
@@ -328,6 +329,7 @@
                             lappend uports $dep
                             lappend portilist $dep@${iversion}_${irevision}${ivariants}
                             set uninstalling_this_dep 1
+                            ui_msg "adding $dep to uninstall list"
                         }
                     }
                 }