diff --git a/polymer/eduke32/build/src/engine.c b/polymer/eduke32/build/src/engine.c
index 4e65af406..86b61094c 100644
--- a/polymer/eduke32/build/src/engine.c
+++ b/polymer/eduke32/build/src/engine.c
@@ -8254,11 +8254,16 @@ int32_t loadlookups(int32_t fp, uint8_t **basepaltabptr)
     for (j=1; j<=255-3; j++)
         if (!palookup[j] && !palookup[j+1] && !palookup[j+2] && !palookup[j+3])
         {
+            int32_t i;
+
             makepalookup(j, NULL, 15, 15, 15, 1);
             makepalookup(j+1, NULL, 15, 0, 0, 1);
             makepalookup(j+2, NULL, 0, 15, 0, 1);
             makepalookup(j+3, NULL, 0, 0, 15, 1);
 
+            for (i=1; i<255; i++)
+                palookup[j][((numshades-1)<<8) + i] = palookup[j][((numshades-1)<<8)];
+
             firstfogpal = j;
             break;
         }
diff --git a/polymer/eduke32/source/lunatic/doc/lunatic.txt b/polymer/eduke32/source/lunatic/doc/lunatic.txt
index f7bfd44d0..9960331e5 100644
--- a/polymer/eduke32/source/lunatic/doc/lunatic.txt
+++ b/polymer/eduke32/source/lunatic/doc/lunatic.txt
@@ -608,6 +608,12 @@ correspond to a steeper ``darkening'' (or fogging) attenuation with
 distance. Linear visibility 0 -- corresponding to `sector[].visibility` of 240
 -- means no attenuation with distance.
 
+_`u8`_ `fogpal`::
+In the OpenGL modes that don't use per-pixel shade table lookups, setting
+`fogpal` to a non-zero value overrides the fog color of the sector to that of
+the corresponding pal number. These are either expected to have been defined
+using DEF tokens `fogpal` or `makepalookup`, or created by EDuke32 at startup.
+
 _`i16`_ `lotag`, `hitag`, `extra`::
 General-purpose ``tags'' provided for game programming. They may be used by
 various EDuke32 sector effects, so it is not recommended to use them in
diff --git a/polymer/eduke32/source/lunatic/test/switch.con b/polymer/eduke32/source/lunatic/test/switch.con
index b738c48a8..affcea809 100644
--- a/polymer/eduke32/source/lunatic/test/switch.con
+++ b/polymer/eduke32/source/lunatic/test/switch.con
@@ -57,7 +57,8 @@ onevent EVENT_ENTERLEVEL
         addvar j 1
         userquote 500
         break  // while is inner: "continue"
-    }  // 3x "==="
+        userquote 400
+    }  // 3x "===", no quote 400
 
     setvar j 0
     whilevarn j 1