$NetBSD: patch-ad,v 1.1 2002/03/23 16:34:54 simonb Exp $

--- goo/gfile.cc.orig	Sat Feb  2 10:15:45 2002
+++ goo/gfile.cc
@@ -494,9 +494,11 @@
     }
     *name = new GString(s);
     s = (*name)->getCString();
+#if 0
     if ((p = strrchr(s, '.'))) {
       (*name)->del(p - s, (*name)->getLength() - (p - s));
     }
+#endif
     (*name)->append(ext);
     fd = open((*name)->getCString(), O_WRONLY | O_CREAT | O_EXCL, 0600);
   } else {
