diff --git a/internal/c/libqb.cpp b/internal/c/libqb.cpp
index d330f04fe..6dc68c121 100644
--- a/internal/c/libqb.cpp
+++ b/internal/c/libqb.cpp
@@ -12640,6 +12640,10 @@ int32 qbs_cleanup(uint32 base,int32 passvalue){
   return passvalue;
 }
 
+long double qbs_cleanup(uint32 base,long double passvalue){
+  while (qbs_tmp_list_nexti>base) { qbs_tmp_list_nexti--; if(qbs_tmp_list[qbs_tmp_list_nexti]!=-1)qbs_free((qbs*)qbs_tmp_list[qbs_tmp_list_nexti]); }//clear any temp. strings created
+  return passvalue;
+}
 
 
 void qbg_sub_window(float x1,float y1,float x2,float y2,int32 passed){
@@ -33487,4 +33491,4 @@ sub__limit( 10 );
 sub__display();
 }while(1);
 //infinite loop (this function never exits)
-}
\ No newline at end of file
+}
diff --git a/internal/c/qbx.cpp b/internal/c/qbx.cpp
index 888a26d96..8e6ab47e9 100644
--- a/internal/c/qbx.cpp
+++ b/internal/c/qbx.cpp
@@ -393,6 +393,7 @@ extern void lprint_makefit(qbs *text);
 extern void tab();
 extern void qbs_print(qbs* str,int32 finish_on_new_line);
 extern void qbs_lprint(qbs* str,int32 finish_on_new_line);
+extern long double qbs_cleanup(uint32 base,long double passvalue);
 extern int32 qbs_cleanup(uint32 base,int32 passvalue);
 extern void qbg_sub_window(float x1,float y1,float x2,float y2,int32 passed);
 extern void qbg_sub_view_print(int32 topline,int32 bottomline,int32 passed);