--- 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 ()