$OpenBSD$
--- apps/bitmap-editor.orig	Wed Oct 30 14:44:52 2013
+++ apps/bitmap-editor	Fri Nov  8 11:55:42 2013
@@ -404,6 +404,7 @@ proc ParseBMP {raw} {
 #
 
 proc OpenBMP {} {
+    global S
     set types { {{BMP Files} {.bmp}} {{All Files} * }}
     set fname [tk_getOpenFile -defaultextension ".bmp" -initialfile $S(fname) \
                    -filetypes $types]
