diff --git a/elab_type.cc b/elab_type.cc
index 5daa88164..ac3b6e4cf 100644
--- a/elab_type.cc
+++ b/elab_type.cc
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2012-2013 Stephen Williams (steve@icarus.com)
+ * Copyright (c) 2012-2014 Stephen Williams (steve@icarus.com)
  *
  *    This source code is free software; you can redistribute it
  *    and/or modify it in source code form under the terms of the GNU
@@ -171,6 +171,15 @@ ivl_type_s* string_type_t::elaborate_type_raw(Design*, NetScope*) const
       return &netstring_t::type_string;
 }
 
+ivl_type_s* parray_type_t::elaborate_type_raw(Design*des, NetScope*) const
+{
+      cerr << get_fileline() << " : sorry: "
+           << "Packed arrays are not currently supported in this context."
+           << endl;
+      des->errors += 1;
+      return 0;
+}
+
 netstruct_t* struct_type_t::elaborate_type_raw(Design*des, NetScope*scope) const
 {
       netstruct_t*res = new netstruct_t;
diff --git a/pform_types.h b/pform_types.h
index df3e1a00b..de616f1d9 100644
--- a/pform_types.h
+++ b/pform_types.h
@@ -243,6 +243,7 @@ struct parray_type_t : public array_base_t {
 
       virtual ivl_variable_type_t figure_packed_base_type(void)const;
       virtual void pform_dump(std::ostream&out, unsigned indent) const;
+      virtual ivl_type_s* elaborate_type_raw(Design*des, NetScope*scope) const;
 };
 
 /*