Fix dde check under unix.

diff --git a/tkinspect.tcl b/tkinspect.tcl
index 96a36a59239ae538b7d7735d75c20578401ea0ad..d8a1487c19b4ce16a21889293febd5f25077ed8f 100644 (file)
--- a/tkinspect.tcl
+++ b/tkinspect.tcl
@@ -232,7 +232,7 @@ dialog tkinspect_main {
     method fill_interp_menu {} {
        set m $self.menu.file.m.interps
        catch {$m delete 0 last}
-        if {[package present dde]} {
+        if {[package provide dde] != {}} {
             foreach service [dde services TclEval {}] {
                 $m add command -label [lindex $service 1] \
                     -command [list $self set_target [lindex $service 1]]