--- src/fortranscanner.cpp.orig	2007-10-26 03:21:58.000000000 -0700
+++ src/fortranscanner.cpp	2007-12-14 12:23:07.750937915 -0800
@@ -4226,7 +4226,7 @@
 {
   //cout<<"addFortranParameter(): "<<name<<" DOCS:"<<(docs.isNull()?QString("null"):docs)<<endl;
   Argument *ret = 0;
-  if (current_root->argList==0) return FALSE;
+  if (current_root->argList==0) return NULL;
   ArgumentListIterator ali(*current_root->argList);
   Argument *a;
   for (ali.toFirst();(a=ali.current());++ali)