--- /data4/sles/ooo-build-LATEST-copy/ooo-build/build/ood680-m5/basic/source/classes/sbxmod.cxx	2006-10-19 11:56:13.000000000 +0100
+++ basic/source/classes/sbxmod.cxx	2006-10-23 11:20:09.000000000 +0100
@@ -543,6 +543,11 @@ void SbModule::SetSource32( const ::rtl:
 					eCurTok = aTok.Next();
 					if( eCurTok == COMPATIBLE )
 						aTok.SetCompatible( true );
+					else if ( eCurTok == VBASUPPORT )
+					{
+						if( ( aTok.Next() == NUMBER ) && ( aTok.GetDbl()== 1 ) )
+							aTok.SetCompatible( true );
+					}
 				}
 			}
 			eLastTok = eCurTok;