Index: misc/vtower.class
==================================================================
--- misc/vtower.class
+++ misc/vtower.class
@@ -54,12 +54,14 @@
   (Strength 1)
   (Weight 1)
   (Climb 100)
   {CommonKeys}
   ('ENTER
-    $Man Loc 0 Dir Create .
-    Destroy .
+    ObjBelow ,Height 50 le if
+      $Man Loc 0 Dir Create .
+      Destroy .
+    then
   )
 )
 
 ($Floor
   (Image "FLOOR")