diff --git a/ChangeLog b/ChangeLog
index 7acd9bb56..2749dacc5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-12  Richard Frith-Macdonald  <rfm@gnu.org>
+
+	* Source/NSBundleAdditions.m: Fix dumb error in my last modification.
+	(bug report by Stephen brandon).
+
 Mon Feb 11 14:39:03 2002  Nicola Pero  <n.pero@mi.flashnet.it>
 
 	Updated for change in semantics of -string method of
diff --git a/Source/NSBundleAdditions.m b/Source/NSBundleAdditions.m
index f69fed4ac..bb0cb1cb5 100644
--- a/Source/NSBundleAdditions.m
+++ b/Source/NSBundleAdditions.m
@@ -249,7 +249,7 @@ Class gmodel_class(void)
 	}
       else
 	{
-	  fileName = [fileName stringByAppendingPathExtension: @"gmodel"];
+	  fileName = [base stringByAppendingPathExtension: @"gmodel"];
 	  ext = @"gmodel";
 	}
     }