diff --git a/CHANGES b/CHANGES
index 18cc5f0d4a92dd41d5f33a33af19bddd4a06c8af..5a13c347059e4e0340aff02eee3906a136bf5256 100644
--- a/CHANGES
+++ b/CHANGES
@@ -5,6 +5,9 @@
 
  Changes between 0.9.2b and 0.9.3
 
+  *) Add missing sk_<type>_unshift() function to safestack.h
+     [Ralf S. Engelschall]
+
   *) Convert casted X509_INFO stacks to type-safe STACK_OF(X509_INFO).
      [Ralf S. Engelschall]
 
diff --git a/crypto/stack/safestack.h b/crypto/stack/safestack.h
index 48e695fb2711d2210b98d1788a3497c8a6230a47..3c9fdba65817cec7e8ba1410c9eadf3ddb0bfd42 100644
--- a/crypto/stack/safestack.h
+++ b/crypto/stack/safestack.h
@@ -72,6 +72,7 @@ type *sk_##type##_value(const STACK_OF(type) *sk,int n); \
 type *sk_##type##_set(STACK_OF(type) *sk,int n,type *v); \
 void sk_##type##_zero(STACK_OF(type) *sk); \
 int sk_##type##_push(STACK_OF(type) *sk,type *v); \
+int sk_##type##_unshift(STACK_OF(type) *sk,type *v); \
 int sk_##type##_find(STACK_OF(type) *sk,type *v); \
 type *sk_##type##_delete(STACK_OF(type) *sk,int n); \
 void sk_##type##_delete_ptr(STACK_OF(type) *sk,type *v); \
@@ -100,6 +101,8 @@ void sk_##type##_zero(STACK_OF(type) *sk) \
     { sk_zero((STACK *)sk); } \
 int sk_##type##_push(STACK_OF(type) *sk,type *v) \
     { return sk_push((STACK *)sk,(char *)v); } \
+int sk_##type##_unshift(STACK_OF(type) *sk,type *v) \
+    { return sk_unshift((STACK *)sk,(char *)v); } \
 int sk_##type##_find(STACK_OF(type) *sk,type *v) \
     { return sk_find((STACK *)sk,(char *)v); } \
 type *sk_##type##_delete(STACK_OF(type) *sk,int n) \