diff --git a/src/lcf/act1.255 b/src/lcf/act1.256
similarity index 99%
rename from src/lcf/act1.255
rename to src/lcf/act1.256
index 1bd609f8..521ad5f6 100644
--- a/src/lcf/act1.255
+++ b/src/lcf/act1.256
@@ -1661,6 +1661,11 @@ probably).">
 	  (<VERB? "MUNG">
 	   <TELL <PICK-ONE ,DOORMUNGS>>)>>
 
+<DEFINE DWIND-FUNCTION ()
+    <COND (<VERB? "OPEN">
+           <TELL
+"The window cannot be opened.">)>>
+
 <DEFINE PUMPER ("AUX" (P <SFIND-OBJ "PUMP">))
   <COND (<OR <IN-ROOM? .P>
 	     <MEMQ .P <AOBJS ,WINNER>>>
diff --git a/src/lcf/dung.355 b/src/lcf/dung.356
similarity index 99%
rename from src/lcf/dung.355
rename to src/lcf/dung.356
index 26abd71e..9317fdf4 100644
--- a/src/lcf/dung.355
+++ b/src/lcf/dung.356
@@ -1509,11 +1509,11 @@ threat to his livelihood."]]!]>
 	 WATER-FUNCTION>
 
 <GOBJECT DWINDOW
-	 ["WINDO"]
+	 ["DWIND" "WINDO"]
 	 []
 	 "window"
 	 ,OVISON
-	 <>>
+	 DWIND-FUNCTION>
 
 \
 
@@ -1597,7 +1597,7 @@ and all the windows are barred."
        "North of House"
        <EXIT "WEST" "WHOUS" "EAST" "EHOUS" "NORTH" "FORE3"
 	      "SOUTH" #NEXIT "The windows are all barred.">
-       ()
+       (<GET-OBJ "DWIND">)
        <>
        <+ ,RLANDBIT ,RLIGHTBIT ,RNWALLBIT ,RSACREDBIT>
        (RGLOBAL <+ ,DWINDOW ,HOUSEBIT>)>
@@ -1608,7 +1608,7 @@ and all the windows are barred."
        "South of House"
        <EXIT "WEST" "WHOUS" "EAST" "EHOUS" "SOUTH" "FORE2"
 	      "NORTH" #NEXIT "The windows are all barred.">
-       ()
+       (<GET-OBJ "DWIND">)
        <>
        <+ ,RLANDBIT ,RLIGHTBIT ,RNWALLBIT ,RSACREDBIT>
        (RGLOBAL <+ ,DWINDOW ,HOUSEBIT>)>