Index: tolbase/lib/toltk/tolinspe.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe.tcl	(revision 67cbe293d690a0065ff6614a119fa86044b30454)
+++ tolbase/lib/toltk/tolinspe.tcl	(revision c6ca7c782707bd5c7428cb950b83a6cb774bc49d)
@@ -2121,4 +2121,41 @@
 }
 
+proc TolGui_StoreSetElementsInOZA { object } {
+  set saveIn [ tk_getSaveFile -defaultextension .oza \
+                   -parent . -title [ mc "Store OZA" ] \
+                   -filetypes {{oza {.oza}}} ]
+
+  if { $saveIn ne "" } {
+    set addr [ tol::info address $object ]
+    set tolexpr [ string map [ list %a $addr %f $saveIn ] {
+      Real Ois.Store( GetObjectFromAddress( "%a" ), "%f" );
+    } ]
+    toltcl::eval $tolexpr
+  }
+}
+
+proc TolGui_StoreSelectionInOZA { selection } {
+  set saveIn [ tk_getSaveFile -defaultextension .oza \
+                   -parent . -title [ mc "Store OZA" ] \
+                   -filetypes {{oza {.oza}}} ]
+  if { $saveIn ne "" } {
+    set lst_addr {}
+    foreach r $selection {
+      set a [ tol::info address $r ]
+      lappend lst_addr \"$a\"
+    }
+    set set_addr "\[\[ [join $lst_addr ,] \]\]"
+    set tolexpr [ string map [ list %L $set_addr %f $saveIn ] {
+      Real {
+        Set items = EvalSet( %L, Anything( Text addr ) {
+          Anything GetObjectFromAddress( addr )
+        } );
+        Real Ois.Store( items, "%f" )
+      }
+    } ]
+    toltcl::eval $tolexpr
+  }
+}
+
 proc TolGui_InsertEntriesFromMenuManager { targetMenu selection } {
   set addrList [ list ]
@@ -2213,4 +2250,5 @@
 
   array unset options_selected
+  set all_objects {}
 
   foreach it [array names data_menu] {
@@ -2235,5 +2273,5 @@
         if { $InRootPool } {
           set object $data(pool,variables,$itemid)
-		} else {
+        } else {
           if {[llength $aryData(Reference)]} {
             #set object [lindex $aryData(Reference) 0]
@@ -2253,4 +2291,5 @@
           }
         }
+        lappend all_objects $object
         #puts "PostVariable: OBJECT=$object OBJNAME=$objName TOLSET=$tolset PATH=$path GRAMMAR=$grammar"
         switch -- $grammar {
@@ -2534,11 +2573,25 @@
                -menu $data_menu($grammar,File)
             foreach objInfo $options_selected($grammar) {
-              $data_menu($grammar,File) add command -label [lindex $objInfo 1]\
-              -command [list ::TolInspector::ViewDefinition\
-                              [lindex $objInfo 1] [lindex $objInfo 2] $grammar]
+              $data_menu($grammar,File) add command -label [lindex $objInfo 1] \
+                  -command [list ::TolInspector::ViewDefinition\
+                                [lindex $objInfo 1] [lindex $objInfo 2] $grammar]
             }
           }
           $data_menu(main) add separator
         } ;#end del foreach
+
+        # Store selection in oza
+        if { [ llength $all_objects ] > 1 || [ lindex $grammar_selected 0 ] ne "Set" } {
+          $data_menu(main) add command -label [mc "Store selection in OZA"]... \
+              -command [ list TolGui_StoreSelectionInOZA $all_objects ]
+        } else {
+          $data_menu(main) add command -label [mc "Store Set in OZA"]... \
+              -command [ list TolGui_StoreSelectionInOZA $all_objects ]
+          $data_menu(main) add command -label [mc "Store elements in OZA"]... \
+              -command [ list TolGui_StoreSetElementsInOZA [ lindex $all_objects 0 ] ]
+        }
+        $data_menu(main) add separator
+        # Store selection in oza
+
         if { $InRootPool } {
           $data_menu(main) add command -label [mc "Remove from spool"] \