diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 5faa89a23e..4dfd138e8b 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-08-23 13:17 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/contrib/rddads/rddads.h
+    * eliminated explicit casting to keep strict aliasing rules
+
 2009-08-23 13:09 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * config/globsh.mk
   * config/readme.txt
diff --git a/harbour/contrib/rddads/rddads.h b/harbour/contrib/rddads/rddads.h
index 7367b0d715..9864cf2e31 100644
--- a/harbour/contrib/rddads/rddads.h
+++ b/harbour/contrib/rddads/rddads.h
@@ -169,7 +169,7 @@ typedef ADSAREA * ADSAREAP;
                               { \
                                  if( (p)->lpdbPendingRel->isScoped && \
                                     !(p)->lpdbPendingRel->isOptimized ) \
-                                    SELF_FORCEREL( ( AREAP ) (p) ); \
+                                    SELF_FORCEREL( &(p)->area ); \
                                  else \
                                     (p)->lpdbPendingRel = NULL; \
                               }