diff --git a/Extensions/Updater.sei b/Extensions/Updater.sei
index fb1c735..18a2ea4 100644
--- a/Extensions/Updater.sei
+++ b/Extensions/Updater.sei
@@ -322,6 +322,16 @@ begin
   Result := True;
 end;
 
+{ procedure Free; //Doesn't Work
+var
+  I: integer;
+begin
+  for I := 0 to High(UpdaterArr) do
+    with UpdaterArr[I] do
+      if (Timer <> nil) then
+        Timer.Free;
+end; }
+
 procedure Attach;
 var
   I: integer;
diff --git a/Extensions/paster.sex b/Extensions/paster.sex
index ff017bf..a0ac284 100644
--- a/Extensions/paster.sex
+++ b/Extensions/paster.sex
@@ -10,7 +10,7 @@ end;
 
 function GetVersion: string;
 begin;
-  Result := '1.0a';
+  Result := '1.0b';
 end;
 
 {$IFDEF EXTENSION}
@@ -361,7 +361,7 @@ end;
 
 procedure UpdateCheck;
 var
-  V, S: string;
+  V: string;
   I: integer;
   SA: TStringArray;
 begin
@@ -380,15 +380,11 @@ begin
         begin
           if (Settings.isKey('Host' + IntToStr(I))) then
           begin
-            S := Settings.getKeyValueDef('Host' + IntToStr(I), 'Host' + IntToStr(I));
-            if (S <> 'Host' + IntToStr(I)) then
-            begin
-              SetLength(SA, Length(SA) + 1);
-              SA[High(SA)] := S;
-            end;
+            SA[High(SA)] := Settings.getKeyValue('Host' + IntToStr(I));
             Settings.DeleteKey('Host' + IntToStr(I));
           end;
         end;
+        
         for I := 0 to High(SA) do
           Settings.setKeyValue('Host' + IntToStr(I + 1), SA[I]);
       end;
diff --git a/Extensions/srl.sex b/Extensions/srl.sex
index c449ac4..d9502c7 100644
--- a/Extensions/srl.sex
+++ b/Extensions/srl.sex
@@ -22,20 +22,29 @@ procedure OpenDefScript(Sender: TObject);
 var
   Script: TStringArray;
 begin
-  SetLength(Script, 6);
+  SetLength(Script, 7);
   Script[0] := 'program Untitled;';
-  Script[1] := '//{$DEFINE SMART}  //Uncomment for SMART';
-  Script[2] := '{.include SRL/SRL.scar}';
+  Script[1] := '{$DEFINE SMART}';
+  Script[2] := '{$I SRL/SRL.scar}';
+
   if (TMenuItem(Sender).Parent.Caption = 'Reflection') then
   begin
-    SetLength(Script, 7);
-    Script[1] := '{$DEFINE SMART}';
-    Script[3] := '{.include Reflection/Reflection.scar}';
+    SetLength(Script, Length(Script) + 1);
+    Script[High(Script) - 4] := '{$I Reflection/Reflection.simba}';
   end;
-  Script[Length(Script) - 3] := '';
-  Script[Length(Script) - 2] := 'begin';
-  Script[Length(Script) - 1] := 'end.';
 
+  Script[High(Script) - 3] := '';
+  Script[High(Script) - 2] := 'begin';
+  Script[High(Script) - 1] := '  SetupSRL;';
+
+  if (TMenuItem(Sender).Parent.Caption = 'Reflection') then
+  begin
+    SetLength(Script, Length(Script) + 1);
+    Script[High(Script) - 1] := '  SetupReflection;';
+  end;
+
+  Script[High(Script)] := 'end.';    
+  
   WriteLn('Opening ' + TMenuItem(Sender).Parent.Caption + ' Default Script...');
   OpenScript('', Implode({$IFDEF WIN}#13+{$ENDIF}#10, Script), False);
 end;