diff --git a/internal/c/libqb.cpp b/internal/c/libqb.cpp
index 7633429ac..6b618dcb9 100644
--- a/internal/c/libqb.cpp
+++ b/internal/c/libqb.cpp
@@ -1195,6 +1195,7 @@ void validatepage(int32);
 void sub__dest(int32);
 void sub__source(int32);
 int32 func__printwidth(qbs *, int32, int32);
+void sub_clsDest(int32, uint32, int32, int32);
 void sub_cls(int32, uint32, int32);
 void qbs_print(qbs *, int32);
 int32 func__copyimage(int32 i, int32 mode, int32 passed);
@@ -14684,6 +14685,14 @@ error:
 }
 
 void qbg_sub_locate(int32 row, int32 column, int32 cursor, int32 start, int32 stop, int32 passed);
+
+void sub_clsDest(int32 method, uint32 use_color, int32 dest, int32 passed) {
+    int32 tempDest;
+    tempDest = func__dest();
+    sub_cls(method, use_color, passed);
+    sub__dest(tempDest);
+}
+
 void sub_cls(int32 method, uint32 use_color, int32 passed) {
     if (new_error)
         return;
diff --git a/internal/c/qbx.cpp b/internal/c/qbx.cpp
index 38e9f2359..e21988c96 100755
--- a/internal/c/qbx.cpp
+++ b/internal/c/qbx.cpp
@@ -430,6 +430,7 @@ extern void qbg_sub_window(float x1, float y1, float x2, float y2,
 extern void qbg_sub_view_print(int32 topline, int32 bottomline, int32 passed);
 extern void qbg_sub_view(int32 x1, int32 y1, int32 x2, int32 y2,
                          int32 fillcolor, int32 bordercolor, int32 passed);
+extern void sub_clsDest(int32 method, uint32 use_color, int32 dest, int32 passed);
 extern void sub_cls(int32 method, uint32 use_color, int32 passed);
 extern void qbg_sub_locate(int32 row, int32 column, int32 cursor, int32 start,
                            int32 stop, int32 passed);
diff --git a/source/subs_functions/subs_functions.bas b/source/subs_functions/subs_functions.bas
index ec88eec6b..b5ce9bc4b 100644
--- a/source/subs_functions/subs_functions.bas
+++ b/source/subs_functions/subs_functions.bas
@@ -2833,11 +2833,11 @@ regid
 clearid
 id.n = "Cls"
 id.subfunc = 2
-id.callname = "sub_cls"
-id.args = 2
-id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER)
-id.specialformat = "[?][,?]"
-id.hr_syntax = "CLS [method%] [, bgColor&]"
+id.callname = "sub_clsDest"
+id.args = 3
+id.arg = MKL$(LONGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(ULONGTYPE - ISPOINTER)
+id.specialformat = "[?][,?][,?]"
+id.hr_syntax = "CLS [method%] [, bgColor&] [, dest&]"
 regid
 
 clearid