Imported Upstream version 0.6.27

[platform/upstream/libsolv.git] / examples / tclsolv

diff --git a/examples/tclsolv b/examples/tclsolv
index 6f819aa..0fc4e2a 100755 (executable)
--- a/examples/tclsolv
+++ b/examples/tclsolv
@@ -738,7 +738,7 @@ foreach cl [$trans classify [expr $solv::Transaction_SOLVER_TRANSACTION_SHOW_OBS
     set cltype [$cl cget -type]
     if {$cltype == $solv::Transaction_SOLVER_TRANSACTION_UPGRADED || $cltype ==$solv::Transaction_SOLVER_TRANSACTION_DOWNGRADED} {
       set op [$trans othersolvable $p]
-      puts [format {  - %s -> %s} [$p str] [$p str]]
+      puts [format {  - %s -> %s} [$p str] [$op str]]
     } else {
       puts [format {  - %s} [$p str]]
     }