diff --git a/ng/ngvisual.tcl b/ng/ngvisual.tcl
index 64004f49..4d71e924 100644
--- a/ng/ngvisual.tcl
+++ b/ng/ngvisual.tcl
@@ -1277,7 +1277,7 @@ proc visual_dialog { } {
         foreach i { none scal vec } {
             set textval $clipsollabs($i)
             $f.m add command -label "$textval" -command \
-                "$f.b configure -text \"$textval\" ; set visoptions.clipsolution $i ; "                
+                "$f.b configure -text \"$textval\" ; set visoptions.clipsolution $i ; Ng_Vis_Set parameters ; redraw ; puts \"call redraw\" "                
         }
 
         pack $f.b $f.l -side right