diff --git a/ChangeLog b/ChangeLog
index f22a146..7dff0cf 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -51,6 +51,9 @@
      interpret semicolons as comment delimiters (found by Barry K. Nathan).
    * Fix off-by-one error in parsing Supported Point Format extension that
      caused some handshakes to fail.
+   * Fix possible miscomputation of the premaster secret with DHE-PSK key
+     exchange that caused some handshakes to fail with other implementations.
+     (Failure rate <= 1/255 with common DHM moduli.)
 
 = PolarSSL 1.3.7 released on 2014-05-02
 Features
diff --git a/library/ssl_tls.c b/library/ssl_tls.c
index b081284..3de7f7c 100644
--- a/library/ssl_tls.c
+++ b/library/ssl_tls.c
@@ -913,14 +913,16 @@
         if( end - p < 2 + (int) len )
             return( POLARSSL_ERR_SSL_BAD_INPUT_DATA );
 
-        *(p++) = (unsigned char)( len >> 8 );
-        *(p++) = (unsigned char)( len );
+        /* Write length only when we know the actual value */
         if( ( ret = dhm_calc_secret( &ssl->handshake->dhm_ctx,
-                                      p, &len, ssl->f_rng, ssl->p_rng ) ) != 0 )
+                                      p + 2, &len,
+                                      ssl->f_rng, ssl->p_rng ) ) != 0 )
         {
             SSL_DEBUG_RET( 1, "dhm_calc_secret", ret );
             return( ret );
         }
+        *(p++) = (unsigned char)( len >> 8 );
+        *(p++) = (unsigned char)( len );
         p += len;
 
         SSL_DEBUG_MPI( 3, "DHM: K ", &ssl->handshake->dhm_ctx.K  );