--- gforth.el.orig	2013-04-14 06:41:15.000000000 +0000
+++ gforth.el	2013-04-14 11:47:18.480191664 +0000
@@ -142,6 +142,14 @@
 ; 
 ; Folding neuschreiben (neue Parser-Informationen benutzen)
 
+;;; Add Forth source file suffixes (Peter Pentchev <roam@ringlet.net>)
+;;; http://bugs.debian.org/587318
+;;;
+(setq auto-mode-alist
+  (append '(("\\.fs$" . forth-mode)
+    ("\\.4th$" . forth-mode)
+    ("\\.fth$" . forth-mode)) auto-mode-alist))
+
 ;;; Motion-hooking (dk)
 ;;;
 (defun forth-idle-function ()