diff --git a/FL/Fl_Device.H b/FL/Fl_Device.H
index 0a5a49edc..bf61360a1 100644
--- a/FL/Fl_Device.H
+++ b/FL/Fl_Device.H
@@ -86,6 +86,13 @@ public:
    \endcode
    */
   virtual const char *class_name() {return class_id;};
+  /** 
+   Virtual destructor.
+   
+   The destructor of Fl_Device must be virtual to make the destructors of
+   derived classes being called correctly on destruction.
+   */
+  virtual ~Fl_Device() {};
 };
 
 #define FL_REGION_STACK_SIZE 10