diff --git a/doc/funcref.sgml b/doc/funcref.sgml
index ea04ad701..51b215749 100644
--- a/doc/funcref.sgml
+++ b/doc/funcref.sgml
@@ -2322,7 +2322,7 @@ to undefined behaviour.
 <tag/Header/<tt/<ref id="ctype.h" name="ctype.h">/
 <tag/Declaration/<tt/int __fastcall__ isalnum (int c);/
 <tag/Description/The function returns a non zero value if the given argument
-is a letter or digit. The return value is zero if the character is anything 
+is a letter or digit. The return value is zero if the character is anything
 else.
 <tag/Limits/<itemize>
 <item>When compiling with <tt/-Os/ the function is actually a macro. The
@@ -2586,7 +2586,7 @@ fastcall function, so it may only be used in presence of a prototype.
 <tag/Header/<tt/<ref id="ctype.h" name="ctype.h">/
 <tag/Declaration/<tt/int __fastcall__ islower (int c);/
 <tag/Description/The function returns a non zero value if the given argument
-is a lower case letter. The return value is zero if the character is anything 
+is a lower case letter. The return value is zero if the character is anything
 else.
 <tag/Limits/<itemize>
 <item>When compiling with <tt/-Os/ the function is actually a macro. The
@@ -2625,7 +2625,7 @@ fastcall function, so it may only be used in presence of a prototype.
 <tag/Declaration/<tt/int __fastcall__ isprint (int c);/
 <tag/Description/The function returns a non zero value if the given argument
 is a printable character (this includes the space character). The return value
-is zero if the character is anything else.         
+is zero if the character is anything else.
 <tag/Limits/<itemize>
 <item>When compiling with <tt/-Os/ the function is actually a macro. The
 inline sequence generated by the macro will not work correctly for values
@@ -2664,7 +2664,7 @@ space or an alphanumeric character.
 <tag/Declaration/<tt/int __fastcall__ ispunct (int c);/
 <tag/Description/The function returns a non zero value if the given argument
 is a printable character, but not a space or anything alphanumeric. The return
-value is zero if the character is anything else.   
+value is zero if the character is anything else.
 <tag/Limits/<itemize>
 <item>When compiling with <tt/-Os/ the function is actually a macro. The
 inline sequence generated by the macro will not work correctly for values
@@ -2741,7 +2741,7 @@ fastcall function, so it may only be used in presence of a prototype.
 <tag/Header/<tt/<ref id="ctype.h" name="ctype.h">/
 <tag/Declaration/<tt/int __fastcall__ isupper (int c);/
 <tag/Description/The function returns a non zero value if the given argument
-is an upper case letter. The return value is zero if the character is anything 
+is an upper case letter. The return value is zero if the character is anything
 else.
 <tag/Limits/<itemize>
 <item>When compiling with <tt/-Os/ the function is actually a macro. The
@@ -2779,7 +2779,7 @@ fastcall function, so it may only be used in presence of a prototype.
 <tag/Header/<tt/<ref id="ctype.h" name="ctype.h">/
 <tag/Declaration/<tt/int __fastcall__ isxdigit (int c);/
 <tag/Description/The function returns a non zero value if the given argument
-is a hexadecimal digit (0..9, a..f and A..F). The return value is zero if the 
+is a hexadecimal digit (0..9, a..f and A..F). The return value is zero if the
 character is anything else.
 <tag/Limits/<itemize>
 <item>When compiling with <tt/-Os/ the function is actually a macro. The
@@ -5306,10 +5306,14 @@ be used in presence of a prototype.
 <tag/Header/<tt/<ref id="tgi.h" name="tgi.h">/
 <tag/Declaration/<tt/void __fastcall__ tgi_init (void);/
 <tag/Description/The tgi_init function will set the default palette to the
-hardware and clear the screen.
+hardware.
 <tag/Limits/<itemize>
 <item>The function is only available as fastcall function, so it may only
 be used in presence of a prototype.
+<item><tt/tgi_init/ will not clear the screen. This allows switching between
+text and graphics mode on platforms that have separate memory areas for the
+screens. If you want the screen cleared, call <tt/<ref id="tgi_clear"
+name="tgi_clear">/ after <tt/tgi_init/.
 </itemize>
 <tag/Availability/cc65
 <tag/See also/Other tgi functions.
diff --git a/libsrc/tgi/tgi_init.s b/libsrc/tgi/tgi_init.s
index 99a64ba76..ccee5a63a 100644
--- a/libsrc/tgi/tgi_init.s
+++ b/libsrc/tgi/tgi_init.s
@@ -65,11 +65,7 @@
         jsr     pushax                  ; Width scale
         jsr     pushax                  ; Heigh scale
         jsr     pusha                   ; Text direction = TGI_TEXT_VERTICAL
-        jsr     _tgi_textstyle          ; A = Font = TGI_FONT_BITMAP
-
-; Clear the screen
-
-        jmp     tgi_clear
+        jmp     _tgi_textstyle          ; A = Font = TGI_FONT_BITMAP
 
 ; Error exit