--- d.m.tcl.~1.27.~	Wed Dec  8 10:34:12 2004
+++ d.m.tcl	Wed Dec  8 10:34:12 2004
@@ -420,6 +420,14 @@
 
 }
 
+# zoom_back
+proc Dm::zoom_back { } {
+    
+    set cmd "d.zoom -l"
+    term $cmd
+
+}
+
 # pan
 proc Dm::pan { } {