diff --git a/frontend/xorriso-tcltk b/frontend/xorriso-tcltk
index c5f432ae..31523430 100755
--- a/frontend/xorriso-tcltk
+++ b/frontend/xorriso-tcltk
@@ -1773,16 +1773,20 @@ proc isomanip_rm_r {} {
 # Called when the "Blank" button is hit.
 #
 proc burn_blank {} {
-  global outdev_adr outdev_profile
+  global outdev_profile eff_outdev_adr eff_indev_adr
 
+  refresh_outdev
   if {[assert_outdev blanking] <= 0} {return ""}
 
+  if {$eff_outdev_adr == $eff_indev_adr} {
+    if {[assert_no_changes] <= 0} {return ""}
+  }
   set victim "medium in"
   if {[string first "stdio" $outdev_profile] == 0} {
     set victim "image file"
   } 
   if {[window_yesno \
-            "Really blank the $victim [make_text_shellsafe $outdev_adr] ?"] \
+          "Really blank the $victim [make_text_shellsafe $eff_outdev_adr] ?"] \
       != 1} { return "" }
   reset_highest_cmd_sev
   send_loggable_cmd "-blank as_needed"
@@ -1795,16 +1799,20 @@ proc burn_blank {} {
 # Called when the "Format" button is hit.
 #
 proc burn_format {} {
-  global outdev_adr outdev_profile
+  global outdev_profile eff_outdev_adr eff_indev_adr
 
+  refresh_outdev
   if {[assert_outdev formatting] <= 0} {return ""}
+  if {$eff_outdev_adr == $eff_indev_adr} {
+    if {[assert_no_changes] <= 0} {return ""}
+  }
 
   if {[string first "stdio" $outdev_profile] == 0} {
     xorriso_tcltk_errmsg \
        "xorriso-tcltk : SORRY : Image files cannot be formatted"
     return ""
   } 
-  if {[window_yesno "Really format the medium in $outdev_adr ?"] \
+  if {[window_yesno "Really format the medium in $eff_outdev_adr ?"] \
       != 1} { return "" }
 
   reset_highest_cmd_sev
@@ -2183,7 +2191,7 @@ proc extract_to {} {
 
   if {$osirrox_allowed != 1} {
     xorriso_tcltk_errmsg \
-       "xorriso-tcltk : SORRY : Extraction from ISO to hard disk is irrevocably banned."
+       "xorriso-tcltk : SORRY : Extraction from ISO to hard disk is already irrevocably banned."
     return ""
   }
 
@@ -2311,9 +2319,10 @@ proc end_xorriso {} {
 # Called by procedures which are about to use the output drive.
 #
 proc assert_outdev {purpose} {
-  global outdev_adr
+  global eff_outdev_adr 
 
-  if {$outdev_adr == ""} {
+  inquire_dev
+  if {$eff_outdev_adr == ""} {
     xorriso_tcltk_errmsg \
       "xorriso-tcltk : SORRY : You must choose an output drive before $purpose"
     return "0"
@@ -5153,9 +5162,7 @@ this feature on startup."
 This removes the affected files and directory trees from the ISO model.
 They will not show up in the directory tree of the next session that
 is written via \"Write ISO session\". Nevertheless they will stay present
-in earlier sessions if they were not freshly inserted after loading the
-ISO model from the input drive.
-"
+in earlier sessions beginning from the session where they were inserted."
   }
   if {$what == "Move to:"} {
     return \
diff --git a/xorriso/xorriso_timestamp.h b/xorriso/xorriso_timestamp.h
index a0483eef..66d39869 100644
--- a/xorriso/xorriso_timestamp.h
+++ b/xorriso/xorriso_timestamp.h
@@ -1 +1 @@
-#define Xorriso_timestamP "2013.01.06.102339"
+#define Xorriso_timestamP "2013.01.06.154027"