diff --git a/lib/master.pike b/lib/master.pike
index 4fe9527183efe4ad56c98cad62eca90e566d4f32..dd11329e87f919df26cd466149af7c3043d4bb14 100644
--- a/lib/master.pike
+++ b/lib/master.pike
@@ -1,4 +1,4 @@
-/* $Id: master.pike,v 1.61 1998/01/17 01:05:20 hubbe Exp $
+/* $Id: master.pike,v 1.62 1998/01/17 17:32:55 mirar Exp $
  *
  * Master-file for Pike.
  */
@@ -183,9 +183,11 @@ mapping (string:program) programs=(["/master":object_program(this_object())]);
 static program low_findprog(string pname, string ext)
 {
   program ret;
+  array s;
   string fname=pname+ext;
   if(ret=programs[fname]) return ret;
-  if(master_file_stat(fname))
+  if( (s=master_file_stat(fname)) 
+      && s[1]>=0 )
   {
     switch(ext)
     {
diff --git a/lib/modules/Calendar.pmod/Swedish.pmod b/lib/modules/Calendar.pmod/Swedish.pmod
index eb1f2470d143d9dda9c6275abe04071eb0a3ca1c..b8f7cf1c06cb632ff2985c8cead16e07ab6d55a2 100644
--- a/lib/modules/Calendar.pmod/Swedish.pmod
+++ b/lib/modules/Calendar.pmod/Swedish.pmod
@@ -20,3 +20,15 @@ class Week
       return "v"+(string)this->number();
    }
 }
+
+class Year
+{
+   inherit Calendar.Gregorian.Year;
+
+   string name()
+   {
+      if (this->number()<=0) 
+	 return (string)(1-this->number())+" fk";
+      return (string)this->number();
+   }
+}